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; Set-up: 
Leer the bell or buzzer that signals errors 
! Define delimiters tee ths ye word entity 
SET ENTITY WORD ' >e-+=/\' 
' Define delimiters for’ the seem entity 
SET ENTITY pente NCE 2! 
' Suppress Line mabe in Line mode 

UMBERS 


' Wra ult words to the next Line at 75 characters 
SET WRAP 


Key Definitions: 


' Change to the pore t] ied buffer 

DEF INE ~¢! A." 0B "EX : PH ANGE =?°CHANGE TO BUFFER: ‘."’ 
Change the &.. current Line in the previous buffer 

DEF INE KEY it b AS FeXT CHANGE LAST.’ 
Change the of the current hare 

DEF INE ~ 4 GOLD > AS “+CHGCW. 
! FILL the text of the current ,Paragraph to the right margin 

DEFINE KEY GOLD © AS “FILL 

' Locate the Last current “ting in the MAIN buffer 

DEFINE KEY GOLD G “EXT FIND=MA 

! ) Greaee for a wolter aunt ¢- then locate the Last current Line 
in the specified buffer 

ber ine KEY GOLD H AS "‘EXT FIND=?*"BUFFER: '‘.."' 


t file 
DEF INE ney GOLD E AS "EXT EXIT." 
Quit f 


u 

DEFINE KEY * GOLD Q AS "EXT QUIT." 

! ft screen left 1, . ( columns) 
pers KEY GOLD L AS ‘ 


' Replace all occurrences Ysa the spec tried string in the 
i current buffer with the spec iise str 19g, . 
DEFINE KEY GOLD S$ AS “EXT S/?®'REPLACE: ?e" WITH: ‘/WHOLE.' 
‘ {tenepeee the two characters = ~ left of the cursor 


DEFINE KEY GOLD T AS "BACK C 

: Write the current buffer to the tees ii ‘ee file : 
DEFINE KEY WAS "EXT WRITE ?*° FILE: *.° 

: Include .ne specified file at the ¢ Line = 
DEFINE KEY GOLD X AS “EXT INCLUDE ?*° INCLUDE FILE: ° 


‘Include the specified file at the beginning of ; 
i the specified buffer 


DEF INE EY GOLD Y AS Next INCLUDE ?*"INCLUDE FILE: * =?*" BUFFER: 


Felect editing mode: 
SET MODE CHANGE 


*;FIND BEGIN," 


SS , 


ENT CORPORATION — 
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